home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / nbralea.sha < prev    next >
Text File  |  1994-03-01  |  205b  |  8 lines
  1. 10 MODE 5:DIM:CLS:ANGLE1
  2. 20 X=RAN#(1):IF X=0 THEN 20
  3. 25 Y=RAN#(1):IF Y=0 THEN 25
  4. 30 X=SQR(-2*LNX):Y=2*PI*Y
  5. 40 Z=X*COSY:GOSUB 60
  6. 50 Z=X*SINY:GOSUB 60:GOTO 20
  7. 60 PRINT TAB(0);Z;:Z$=INPUT$(1,@):RETURN
  8.